end exec pop exec

/SharedFontDirectory dup where{pop pop}{0 dict 3 index exec}ifelse

}bind 3 index exec

}{pop pop pop $mmff_origfindfont}ifelse}{pop $mmff_origfindfont}ifelse}ifelse

2 copy exch /FontName exch put definefont}{cleartomark $mmff_origfindfont}ifelse end

NormalizeDesignVector ConvertDesignVector] currentdict exch makeblendedfont

get length counttomark 2 sub eq exch pop}{pop pop}ifelse}if{

loop false /FontInfo where{pop FontInfo /BlendAxisTypes 2 copy known{

[exch{(_)search{{cvr}stopped{pop pop}{exch pop exch}ifelse}{pop exit}ifelse}

$mmff_origfindfont begin pop

cvn dup dup FontDirectory exch known exch SharedFontDirectory exch known or{

{$mmff_origfindfont}{dup dup length string cvs(_)search{

{false}ifelse}ifelse

{dup SharedFontDirectory exch get /FontType get 3 ne}

{dup SharedFontDirectory exch known

{dup FontDirectory exch get /FontType get 3 ne}

dup FontDirectory exch known

/findfont{

/$mmff_origfindfont /findfont load 3 index exec

currentshared{{}}{true setshared{false setshared}}ifelse}{{}}ifelse}ifelse

{begin{currentdict scheck}{false}ifelse{

{{}userdict}ifelse begin}

pop{currentshared{{}}{true setshared{false setshared}}ifelse shareddict}

/findfont where pop dup systemdict eq{

/setshared where{pop true}{false}ifelse

/$mmff_origfindfont where{pop save{restore}{pop pop}}{{}{def}}ifelse

}bind def

^p

/ConvertDesignVector{

}bind def

^o

/NormalizeDesignVector{